home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / CAD / PCONFRE2.ARJ / CLAY.LSP < prev    next >
Text File  |  1987-07-07  |  2KB  |  58 lines
  1.  
  2. ;---------------------------CLAY.LSP------------------------------------------
  3. ;                               by
  4. ;                                 BILL CARROLL
  5. ;-----------------------------------------------------------------------------
  6.  
  7. ;-----------------------------------------------------------------------------
  8. ;       This routine changes entities to the current layer of a drawing.
  9. ;       It will also switch layers before selecting the entities.
  10. ;
  11. ;-----------------------------------------------------------------------------
  12.  
  13. (DEFUN C:CLAY ()
  14.         (SETQ CMDECHO "0")
  15.         (PRINT "THIS COMMAND WILL MOVE OBJECTS TO THE CURRENT LAYER.")
  16.         (PRINT "PRESS <CTRL-C> TO QUIT")
  17.         (TIMING 400)                                ;Pause
  18.         ;
  19.         (SETQ CHOICE (GETSTRING "\nCHANGE LAYERS? (Y/cr):"))
  20.         (IF (OR (= 89 (ASCII CHOICE)) (= 121 (ASCII CHOICE)))
  21.             (CHANGELAY) (CHANGEFUN))
  22. )
  23.         ;
  24.  
  25. (DEFUN CHANGELAY ()                                 ;Function to switch layers
  26.         (SETQ OLDLAY (GETVAR "CLAYER"))
  27.         (SETQ NEWLAY (GETSTRING "NEXT LAYER :"))
  28.         (COMMAND "LAYER" "S" NEWLAY "" )
  29.         (CHANGEFUN)
  30.         (SETQ MESS "CHANGES DONE, ")
  31.         (SETQ CHOICE (GETSTRING "\nRESTORE OLD LAYER? (Y/cr):"))
  32.         (IF (OR (= 89 (ASCII CHOICE)) (= 121 (ASCII CHOICE)))
  33.             (RESTORLAY) (SETQ DUMMY () ))
  34.         (PRINC MESS)(PRINC "CURRENT LAYER IS : ")(SETQ MESS NEWLAY)
  35.         )
  36.         ;
  37.  
  38. (DEFUN RESTORLAY ()                                ;Function to restore layer
  39.         (COMMAND "LAYER" "S" OLDLAY "" )
  40.         (SETQ NEWLAY OLDLAY)
  41.         )
  42.         ;
  43.  
  44. (DEFUN CHANGEFUN ()              ;Function to select and change entities' layers
  45.         (SETQ SSET (SSGET))                    ;Use Autocad selection set prompt
  46.         (SETQ CURRLAY (GETVAR "CLAYER"))
  47.         (COMMAND "CHANGE" SSET "" "P" "LA" CURRLAY "")  ;Autocad Change command
  48.         (SETQ MESS "CHANGED")
  49.         )
  50.         ;
  51.  
  52. (DEFUN TIMING (numtimes)               ;Pause loop
  53.         (REPEAT numtimes
  54.         (1+ 5))
  55.         )
  56.         ;
  57.  
  58.